Otherware/Otherware_1_SB_Development.iso/mac/hypercar/mactool/thinkcgu.sit/TC Prog Guide/card_9925.txt

Text File | 1991-02-27 | 20.4 KB | 1,000 lines

-- card: 9925 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 4755
-- name: contents (cont)
----- HyperTalk script -----
-- modified version for only 18 hot fields
on updateContents
  global deletedCard
  put 36*((the number of me)-(the number of card "contents")) into base
  set cursor to watch
  put 4 into firstField
  repeat with x = 1 to 18
    get line x+base of card field "content list" of card "contents"
    if it is word 3 of deletedCard then
      put "" into line x+base of card field "content list" of card "contents"
      get ""
    end if
    if it is "" then
      put "" into card field (2*x+firstField) of card (the number of me)
      put "" into card field (2*x-1+firstField) of card (the number of me)
    else
      put the number of card id it into card field (2*x-1+firstField) of card (the number of me)
      put it into card field (2*x+firstField) of card (the number of me)
      get field "heading" of card id it
      put it into word 1 of card field (2*x+firstField) of card (the number of me)
    end if
  end repeat
  put (the number of me) + 1 into nextCard
  get the name of card nextCard
  get word 2 of it
  get char 2 to 9 of it
  if it is "contents" then
    send updateContents to card nextCard
  end if
end updateContents




-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=57 right=300 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 14 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=141 top=21 right=36 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bookmark1


-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=232 top=37 right=55 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: instructions


-- part 24 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=237 top=21 right=36 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bookmark2


-- part 25 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=333 top=21 right=36 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bookmark3


-- part 29 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=60 right=74 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 28 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=60 right=74 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 31 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=73 right=87 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=73 right=87 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 33 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=86 right=100 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 32 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=86 right=100 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 35 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=99 right=113 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 34 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=99 right=113 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 37 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=112 right=126 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 36 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=112 right=126 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 39 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=125 right=139 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 38 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=125 right=139 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 44 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=138 right=151 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 43 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=138 right=152 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 46 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=151 right=165 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 45 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=151 right=165 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 48 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=164 right=178 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 47 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=164 right=178 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 50 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=177 right=191 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 49 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=177 right=191 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 52 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=190 right=203 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 51 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=190 right=204 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 54 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=203 right=217 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 53 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=203 right=217 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=216 right=230 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 55 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=216 right=230 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 58 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=229 right=243 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 57 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=229 right=243 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 60 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=242 right=255 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 59 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=242 right=256 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 62 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=255 right=268 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 61 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=255 right=269 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 64 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=268 right=282 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 63 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=268 right=282 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 66 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=281 right=295 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 65 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=281 right=295 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  get the number of the target
  get card field (it-1)
  if it is not "" then
    -- added following to return to card
    global xrefdepth
    add 1 to xrefdepth
    push card
    show background button "return"
    go card it
  end if
end mouseUp



-- part 130 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=352 top=26 right=43 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Contents Pg.
----- HyperTalk script -----
on mouseUp
  put the userLevel into currentLevel
  set the userLevel to 5
  doMenu "Copy Card"
  doMenu "Paste Card"
  put "" into field "page no"
  send updateContents to this card
  set the userLevel to currentLevel
end mouseUp



-- part contents for card part 14
----- text -----
card id 4342

-- part contents for background part 4
----- text -----










-- part contents for card part 24
----- text -----
0

-- part contents for card part 25
----- text -----
0

-- part contents for background part 6
----- text -----
List of Code Examples

-- part contents for card part 29
----- text -----
17

-- part contents for card part 28
----- text -----
Simple Person class example

-- part contents for card part 33
----- text -----
40

-- part contents for card part 32
----- text -----
Derivation of Student class from Person class

-- part contents for card part 37
----- text -----
82

-- part contents for card part 36
----- text -----
Example of user-defined data types

-- part contents for card part 44
----- text -----
103

-- part contents for card part 43
----- text -----
Example of recursion, multiple source files

-- part contents for card part 48
----- text -----
131

-- part contents for card part 47
----- text -----
Object-oriented program using multiple source and header files

-- part contents for card part 52
----- text -----
205

-- part contents for card part 51
----- text -----
Portable graphics class and Macintosh version

-- part contents for card part 56
----- text -----
210

-- part contents for card part 55
----- text -----
Root class for TC using automated constructors/destructors

-- part contents for background part 7
----- text -----
4

-- part contents for card part 20
----- text -----
(click on the topic or page no. of interest)